10 ;*********************************
11 ;*                               *
12 ;* GIGA-ASS GRAFIK-ROUTINEN DEMO *
13 ;* ----------------------------- *
14 ;*                               *
15 ;* ACHTUNG: VOR ASSEMBLIEREN     *
16 ;* MUESSEN ZWEI VORAUSSETZUNGEN  *
17 ;* ERFUELLT SEIN:                *
18 ;*                               *
19 ;* 1. DER OBJEKTCODE DER GRAFIK- *
20 ;* ROUTINEN MUSS IN DEN SPEICHER *
21 ;* GELADEN WORDEN SEIN.          *
22 ;*                               *
23 ;* 2. DAS MAKRO MERGE-FILE MUSS  *
24 ;* MIT DEM "M" BEFEHL AN DIESEN  *
25 ;* QUELLTEXT ANGEHAENGT WORDEN   *
26 ;* SEIN.                         *
27 ;*                               *
28 ;*********************************
100 +$7000
110 USRDEMO
120 DEMO DESIGNCLOSE3
130  CLEAR
140  COLORCLOSE$BF
150  TEXTCLOSET1,6,9,1,3,0,0
160  PAGECLOSE3
170  BORDERCLOSE$F
180  FRAMECLOSE35,35,290,90
190  FRAMECLOSE40,40,285,85
200  FILLCLOSE37,64
210  FILLCLOSE287,64
220  TEXTCLOSET2,13,6,0,1,1,0
230  TEXTCLOSET3,17,6,0,0,1,0
240  TEXTCLOSET4,19,7,0,0,1,0
250  SPACEWAIT
260  BORDERCLOSE$C
270  CLEAR
280  COLORCLOSE$C
290 ; 1. AUFRUF
300  MID$#160
310  (null)XC
320  MID$#0
330  (null)XC+1
340  MID$#100
350  (null)YC
360  (null)SUBR
370 ; 2. AUFRUF
380  MID$#228
390  (null)YC
400  (null)SUBR
410 ; 3. AUFRUF
420  MID$#54
430  (null)XC
440  MID$#1
450  (null)XC+1
460  MID$#10
470  (null)YC
480  (null)SUBR
490 EXIT OFF
500  MID$#0
510  (null)198
520  (null)
530 T1 NOT"CIRCLE DEMO"
540 T2 NOT"[199]IGA-[193]SS [199]RAFIK-[210]OUTINEN [196]EMO"
550 T3 NOT"[218]UM [193]BBRUCH <[211][208][193][195][197]> DRUECKEN!"
560 T4 NOT"[202]ETZT WEITER MIT <[211][208][193][195][197]>..."
570 SUBR MID$#2
580  (null)RAD
590 LOOP1 CIRCLEICLOSEXC,YC,RAD
600  EXITKEY
610  RIGHT$RAD
620  (null)LOOP1
630  MID$#2
640  (null)RAD
650 LOOP2 CCIRCLEICLOSEXC,YC,RAD
660  EXITKEY
670  RIGHT$RAD
680  (null)LOOP2
690  (null)
700 XC THEN2
710 YC THEN1
720 RAD THEN1
730 TAB(EXITADR=EXIT
740 GETEXITKEY
750  MID$203
760  STR$#$3C
770  (null)CONT
780  (null)
790  (null)
800  (null)EXITADR
810 CONT
820 NEW